(ebnf-yac-token-table): Use mapc rather than mapcar.

diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el
index c1b00bdddfc386a6c4502678c3c084a6158f44c0..14640649d02bb1cc990bd8dc95d2d29c60d62085 100644 (file)
--- a/lisp/progmodes/ebnf-yac.el
+++ b/lisp/progmodes/ebnf-yac.el
@@ -273,12 +273,12 @@
   ;; control character & 8-bit character are set to `error'
   (let ((table (make-vector 256 'error)))
     ;; upper & lower case letters:
-    (mapcar
+    (mapc
      #'(lambda (char)
         (aset table char 'non-terminal))
      "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")
     ;; printable characters:
-    (mapcar
+    (mapc
      #'(lambda (char)
         (aset table char 'character))
      "!#$&()*+-.0123456789=?@[\\]^_`~")